home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / tests / pattern.test < prev    next >
Encoding:
Text File  |  1995-06-29  |  734 b   |  40 lines
  1.  
  2. if {[string compare test [info procs test]] == 1} then \
  3.   {source defs}
  4.  
  5. # set VERBOSE 1
  6.  
  7. proc setDirection {dir} {
  8.     .patform*arrow2 setValues -arrowDirection $dir
  9.     .patform*arrow2 getValues -arrowDirection d
  10.     return $d
  11. }
  12.  
  13. xtAppInitialize -class Arrow
  14. . setValues -allowShellResize true
  15.  
  16.  
  17. xmForm .patform managed
  18. xmRowColumn .patform.rowcol managed
  19. xmArrowButton .patform.rowcol.arrow2 managed
  20.  
  21. . realizeWidget
  22.  
  23. ##################
  24. # Arrow Directions
  25. ##################
  26.  
  27. if {$XmVersion >= 1002} {
  28. test arrow2-1.1 {pattern match} {
  29.     setDirection arrow_down
  30. } {arrow_down}
  31. }
  32.  
  33.  
  34. .patform.rowcol.arrow2 destroyWidget
  35. .patform.rowcol destroyWidget
  36. .patform destroyWidget
  37.  
  38. # we don't want to go into interactivity:
  39. # . mainLoop
  40.